J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G35F/G34_URAN.Dxr/00004_“›—À€ýÞÿÁƒ.ls

Text File | 1998-01-22 | 4.1 KB | 203 lines

global i, s, spno1, spno2, spno3, rcount, seizano, work_d, work_v, work_l, work_s, work_a, work_m, work_bad, workcast1, workcast2, badflg

on startMovie
  set mycursor to [1, 175]
  repeat with i = 10 to 21
    set the cursor of sprite i to mycursor
  end repeat
  repeat with i = 23 to 32
    set the cursor of sprite i to mycursor
  end repeat
  repeat with i = 34 to 35
    set the cursor of sprite i to mycursor
  end repeat
  repeat with i = 37 to 39
    set the cursor of sprite i to mycursor
  end repeat
  put the long date into field "ﾃｬﾂｲﾃｯt"
  set spno1 to 0
  set spno2 to 0
  set spno3 to 0
  repeat with i = 40 to 42
    set the visible of sprite i to 0
  end repeat
  puppetSound(1, 1)
  puppetSound(4, 1)
end

on hilitecolor
  repeat with i = 10 to 21
    if i = spno1 then
      puppetSprite(i, 1)
      set the memberNum of sprite i to spno1 + 44
      updateStage()
      next repeat
    end if
    puppetSprite(i, 0)
  end repeat
  if spno1 <> 0 then
    set the visible of sprite 40 to 0
  end if
end

on hilitesuuji
  repeat with i = 23 to 32
    if i = spno2 then
      puppetSprite(i, 1)
      set the memberNum of sprite i to spno2 + 53
      updateStage()
    end if
    if i <> spno2 then
      puppetSprite(i, 0)
      updateStage()
    end if
  end repeat
  if spno2 <> 0 then
    set the visible of sprite 41 to 0
  end if
end

on checkstart
  puppetSprite(37, 1)
  set the memberNum of sprite 37 to 91
  updateStage()
  if spno1 = 0 then
    set the visible of sprite 40 to 1
    puppetSprite(37, 0)
  end if
  if spno2 = 0 then
    set the visible of sprite 41 to 1
    puppetSprite(37, 0)
  end if
  if spno3 = 0 then
    set the visible of sprite 42 to 1
    puppetSprite(37, 0)
  end if
  if (spno3 = 34) and (spno1 <> 0) and (spno2 <> 0) then
    go("12speed")
  end if
  if (spno3 = 35) and (spno1 <> 0) and (spno2 <> 0) then
    go("13speed")
  end if
end

on choicecrt
  puppetSprite(2, 1)
  puppetSprite(3, 1)
  set the memberNum of sprite 2 to spno1 + 32
  set the memberNum of sprite 3 to spno2 + 43
  updateStage()
end

on choicesinri
  puppetSprite(5, 1)
  set the memberNum of sprite 5 to spno1 + 99
  puppetTransition(3, 8)
  updateStage()
end

on choiceseiza
  set badflg to 0
  keisan()
  if (work_m = 0) or (work_m = work_bad) then
    set badflg to 1
    set workcast1 to 173
    set workcast2 to 174
  end if
  if (badflg = 0) and (seizano = 12) then
    set workcast1 to work_m + 122
    set workcast2 to work_bad + 134
  end if
  if (badflg = 0) and (seizano = 13) then
    set workcast1 to work_m + 146
    set workcast2 to work_bad + 159
  end if
end

on goodcrt
  if workcast1 = 173 then
    puppetSound(4, "ﾂ ﾃŸ")
  else
    puppetSound(4, "ﾂｵﾂ静δ≫\ｺ1")
  end if
  puppetSprite(6, 1)
  set the memberNum of sprite 6 to workcast1
  puppetTransition(9, 8)
  updateStage()
end

on badcrt
  if workcast1 = 173 then
    puppetSound(4, "ﾂ鞘\伉絶\ｺ")
  else
    puppetSound(4, "ﾂｵﾂ静δ≫\ｺ2")
  end if
  puppetSprite(7, 1)
  set the memberNum of sprite 7 to workcast2
  puppetTransition(9, 8)
  updateStage()
end

on kaijopuppet
  repeat with i = 10 to 38
    puppetSprite(i, 0)
  end repeat
end

on jump12
  puppetSprite(spno3, 1)
  set the memberNum of sprite spno3 to 87
  updateStage()
  puppetSprite(spno3 + 1, 0)
  set the visible of sprite 42 to 0
  set seizano to 12
  go("12roll")
end

on jump13
  puppetSprite(spno3, 1)
  set the memberNum of sprite spno3 to 89
  updateStage()
  puppetSprite(spno3 - 1, 0)
  set the visible of sprite 42 to 0
  set seizano to 13
  go("13roll")
end

on modori
  repeat while the stillDown
    puppetSprite(39, 1)
    set the memberNum of sprite 39 to 100
    updateStage()
  end repeat
  puppetSprite(39, 0)
  repeat with i = 2 to 8
    puppetSprite(i, 0)
  end repeat
  set spno1 to 0
  set spno2 to 0
  set spno3 to 0
  puppetTransition(6, 8)
  go("TOP")
end

on crtcount
  puppetSound(4, "ﾃ\ﾂﾃ˜")
  puppetSprite(36, 1)
  set the memberNum of sprite 36 to 101 + rcount
  updateStage()
end

on domenuback
  repeat while the stillDown
    puppetSprite(38, 1)
    set the memberNum of sprite 38 to 93
    updateStage()
  end repeat
  puppetSprite(38, 0)
  sound stop 1
  sound stop 2
  sound stop 4
  go(1, "G34_ASAA")
end